home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland Pascal with Objects 7.0 / DDEML.ZIP / DATAENTR.PAS next >
Pascal/Delphi Source File  |  1992-10-27  |  1KB  |  43 lines
  1. {***************************************************}
  2. {                                                   }
  3. {   Windows 3.1 DDEML Demonstration Program         }
  4. {   Copyright (c) 1992 by Borland International     }
  5. {                                                   }
  6. {***************************************************}
  7.  
  8. { This unit defines the interface to the DataEntry DDE
  9.   server (DDEMLSRV.PAS).  It defines the Service, Topic,
  10.   and Item names supported by the Server, and also defines
  11.   a data structure which may be used by the Client to
  12.   hold the sampled data locally.
  13.  
  14.   The Data Entry Server makes its data samples available
  15.   in text (cf_Text) form as three separate Topics.  Clients
  16.   may convert these into integer form for use with the
  17.   data structure defined here.
  18. }
  19. unit DataEntry;
  20.  
  21. interface
  22.  
  23. const
  24.   NumValues = 3;
  25.  
  26. type
  27.  
  28. { Data Structure which constitutes a sample }
  29.  
  30.   TDataSample = array [1..NumValues] of Integer;
  31.   TDataString = array [0..20] of Char;     { Size of Item as text }
  32.  
  33. const
  34.   DataEntryName : PChar = 'DataEntry';
  35.   DataTopicName : PChar = 'SampledData';
  36.   DataItemNames : array [1..NumValues] of PChar = ('DataItem1',
  37.                                                    'DataItem2',
  38.                                                    'DataItem3');
  39.  
  40. implementation
  41.  
  42. end.
  43.